home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_PRO / DS-2.ZIP;1 / TESTS.ZIP / OVER.ICN < prev    next >
Encoding:
Text File  |  1992-02-10  |  399 b   |  23 lines
  1. procedure main()
  2.    if not(&features == "large integers") then
  3.       stop("large integers not supported")
  4.    i := 100000 + 10000
  5.    write(i)
  6.    i +:= 2 ^ 30
  7.    write(i)
  8.    i +:= i
  9.    write(i)
  10.    i := 100000 * 10000
  11.    write(i)
  12.    i +:= 2 ^ 30
  13.    write(i)
  14.    i *:= i
  15.    write(i)
  16.    i := -100000 - 10000
  17.    write(i)
  18.    i +:= -(2 ^ 30)
  19.    write(i)
  20.    i -:= 2 ^ 30
  21.    write(i)
  22. end
  23.